(setq idrop-merge-keep-parent-candidate 'maybe)

(setq bigone (lookup-key global-map [menu-bar]))

(defun idrop-test ()
  (interactive)
   (let ((idrop-merge-keep-parent-candidate 'maybe)
         (idrop-vary-width (list 'onfiltering)))
     (idrop-popup-menu nil bigone)))

idrop-merge-keep-parent-candidate 'never

(setq ola "<down-mouse-1>")

(lookup-key global-map (read-kbd-macro ola))

(mapcar #'delete-overlay (overlays-in (point-min) (point-max)))


(defun escreve-resultado (resultado)
  (insert (format "> %s" resultado)))


(defun fact (n)
  (* n (fact (1- n))))

















































